home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / progset.arc / PARSE.PRG < prev    next >
Encoding:
Text File  |  1991-04-29  |  335 b   |  17 lines
  1. * PARSE.PRG
  2. *--- Example comma-separated list
  3. LineRead = '100,200,"Three Hundred",400'
  4.  
  5. *--- Parse list, placing each element in an array
  6. myArray  = GetParmList(LineRead)
  7.  
  8. *--- Print array values
  9. for x=1 to len(myArray)
  10.     ? myArray[x]
  11. next x
  12. return
  13.  
  14.         *---*
  15. Function GetParmList(plist)
  16. return &('{'+plist+'}')
  17.